home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 45
/
Aminet 45 (2001)(GTI - Schatztruhe)[!][Oct 2001].iso
/
Aminet
/
dev
/
e
/
yaec.lha
/
examples
/
Shell.e
< prev
next >
Wrap
Text File
|
2001-08-12
|
413b
|
16 lines
-> Silly Shell Example
PROC main()
DEF inputstring[80]:STRING, con
IF con:=Open('con:10/10/400/100/MySillyShell v0.1',NEWFILE)
Write(con,'Shell by $#%! in 1991. \"BYE\" to stop.\n',STRLEN)
WHILE StrCmp(inputstring,'BYE')=FALSE
Execute(inputstring,0,con)
Write(con,'MyPrompt> ',STRLEN)
ReadStr(con,inputstring)
UpperStr(inputstring)
ENDWHILE
Close(con)
ENDIF
ENDPROC